home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1989 / May 89 / U0017-Re MABuild -nodebug-May89 < prev    next >
Encoding:
Text File  |  1991-03-06  |  4.8 KB  |  152 lines  |  [TEXT/GEOL]
  1. Item    1833057                         6-May-89        15:59
  2.  
  3. From:   SHEBANOW1                       Shebanow, Andrew
  4.  
  5. To:     MACAPP.TECH$                    MACAPP Tech
  6.  
  7. cc:     WILSON6                         Wilson, Dave - Personal Concepts
  8.  
  9. Sub:    Re: MABuild -nodebug from menu
  10.  
  11. Since Dave sent out his build menu add-ons, I thought I would put my version
  12. out as well (it is included in the MPW Goodies package we are distributing at
  13. the Developer's Conference):
  14.  
  15. Andy Shebanow
  16. MacDTS
  17.  
  18. #
  19. # MyBuildMenu   Andrew Shebanow
  20. #
  21. # NOTE: You must call this script via the execute command:
  22. #
  23. #    Execute MyBuildMenu
  24. #
  25. # Build our custom version of the Build Menu
  26. #
  27. Set Exit 0
  28.    DeleteMenu Build ≥ Dev:Null
  29.    AddMenu Build 'Create Build Commands…'
  30.    'Set Program "`∂`Commando CreateMake || Echo Set Status 0∂`
  31. "{ShellDirectory}"MPW.Errors
  32.    || Alert < "{ShellDirectory}"MPW.Errors`"'
  33.    AddMenu Build '(-' ''
  34.    AddMenu Build 'Build…/B'
  35.    'Begin;
  36.     Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`";
  37.     Exit If "{NewProgram}" == "";
  38.     Set Program "{NewProgram}";
  39.     Open "{Worksheet}";
  40.     Echo; Echo;
  41.     BuildProgram "{Program}";
  42.     End >> "{Worksheet}" ≥≥ Dev:StdOut'
  43.    AddMenu Build 'Build Same/∫'
  44.    'Begin;
  45.     Exit If "{Program}" == "";
  46.     Open "{Worksheet}";
  47.     Echo; Echo;
  48.     BuildProgram "{Program}";
  49.     End >> "{Worksheet}" ≥≥ Dev:StdOut'
  50.    AddMenu Build 'Full Build…'
  51.    'Begin;
  52.     Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`";
  53.     Exit If "{NewProgram}" == "";
  54.     Set Program "{NewProgram}";
  55.     Open "{Worksheet}";
  56.     Echo; Echo;
  57.     BuildProgram -e "{Program}";
  58.     End >> "{Worksheet}" ≥≥ Dev:StdOut'
  59.    AddMenu Build 'Show Build Commands…'
  60.    'Begin;
  61.    Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`";
  62.     Exit If "{NewProgram}" == "";
  63.     Set Program "{NewProgram}";
  64.     Open "{Worksheet}";
  65.     Echo; Echo;
  66.     BuildCommands "{Program}";
  67.     End >> "{Worksheet}" ≥≥ Dev:StdOut'
  68.    AddMenu Build 'Show Full Build Commands…'
  69.    'Begin;
  70.     Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`";
  71.     Exit If "{NewProgram}" == "";
  72.     Set Program "{NewProgram}";
  73.     Open "{Worksheet}";
  74.     Echo; Echo;
  75.     BuildCommands -e "{Program}";
  76.     End >> "{Worksheet}" ≥≥ Dev:StdOut'
  77.    AddMenu Build '(-' ''
  78.    Alias MADebugOff"AddMenu Build 'MABuild Debug' MADebugOn; Set MADebuggingFla
  79. 0"
  80.    Alias MADebugOn "AddMenu Build 'MABuild Debug!' MADebugOff; Set MADebugging
  81. 1"
  82.    Alias MASymOff  "AddMenu Build 'MABuild SADE Symbols' MASymOn; Set MASADEFla
  83.    Alias MASymOn   "AddMenu Build 'MABuild SADE Symbols!' MASymOff; Set MASADE
  84. 1"
  85.    Alias MARunOff  "AddMenu Build 'MABuild Runs App' MARunOn; Set MARunFlag 0"
  86.    Alias MARunOn   "AddMenu Build 'MABuild Runs App!' MARunOff; Set MARunFlag
  87.    Alias MAAutoBuildOff"AddMenu Build 'MABuild AutoBuild MacApp' MAAutoBuildOn;
  88. Set MAAutoBuildFlag 0"
  89.    Alias MAAutoBuildOn "AddMenu Build 'MABuild AutoBuild MacApp!' MAAutoBuildO
  90. Set MAAutoBuildFlag 1"
  91.    Alias EvalMAOpts
  92.    'If {MADebuggingFlag} == 1; Set CurMABuildOpts "-Debug"; Else; Set
  93. CurMABuildOpts "-NoDebug"; End;
  94.     If {MASADEFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -Sym"; End;
  95.     If {MAAutoBuildFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -AutoBuild"
  96. End;
  97.     If {MARunFlag} == 1; Set CurMABuildOpts "{CurMABuildOpts} -Run"; End'
  98.    If {MADebuggingFlag} == 1
  99.    AddMenu Build 'MABuild Debug!' MADebugOff
  100.    Else
  101.    AddMenu Build 'MABuild Debug' MADebugOn
  102.    End
  103.    If {MASADEFlag} == 1
  104.    AddMenu Build 'MABuild SADE Symbols!' MASymOff
  105.    Else
  106.    AddMenu Build 'MABuild SADE Symbols' MASymOn
  107.    End
  108.    If {MARunFlag} == 1
  109.    AddMenu Build 'MABuild Runs App!' MARunOff
  110.    Else
  111.    AddMenu Build 'MABuild Runs App' MARunOn
  112.    End
  113.    If {MAAutoBuildFlag} == 1
  114.    AddMenu Build 'MABuild AutoBuild MacApp!' MAAutoBuildOff
  115.    Else
  116.    AddMenu Build 'MABuild AutoBuild MacApp' MAAutoBuildOn
  117.    End
  118.    AddMenu Build '(-' ''
  119.    AddMenu Build 'MaBuild…'
  120.    'Begin;
  121.     Set NewProgram "`Request "Program Name?" -d "{Program}" || Echo '""'`";
  122.     Exit If "{NewProgram}" == "";
  123.     EvalMAOpts;
  124.     Set Program "{NewProgram}";
  125.     Open "{Worksheet}";
  126.     Echo;
  127.     MABuild "{Program}" {CurMABuildOpts};
  128.     End >> "{Worksheet}" ≥≥ Dev:StdOut'
  129.    AddMenu Build 'MABuild Same/√'
  130.    'Begin;
  131.     Exit If "{Program}" == "";
  132.     EvalMAOpts;
  133.     Open "{Worksheet}";
  134.     Echo;
  135.     MABuild "{Program}" {CurMABuildOpts};
  136.     End >> "{Worksheet}" ≥≥ Dev:StdOut'
  137.    AddMenu Build '(-' ''
  138.    AddMenu Build 'Next Error/≥'
  139.    'Begin;
  140.     Find /•[ ∂t]*File/ "{Worksheet}";
  141.     Find !0 "{Worksheet}";
  142.     Execute "{Worksheet}.§";
  143.     End > Dev:Null ≥ Dev:Null'
  144.    AddMenu Build 'Previous Error/≤'
  145.    'Begin;
  146.     Find \•[ ∂t]*File\ "{Worksheet}";
  147.     Find !0 "{Worksheet}";
  148.     Execute "{Worksheet}.§";
  149.     End > Dev:Null ≥ Dev:Null'
  150. Set Exit 1
  151.  
  152.